﻿Partial Public Class BindingToCLRProperties

    Private Sub BindingToCLRProperties_Loaded(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded
        Me.DataContext = Data.Person
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button1.Click
        Data.Person.FirstName = "CHANGED"
    End Sub
End Class
